5 PRINT"[147]"
10 S=54272:FORL=0TO24:POKES+L,.:NEXT
20 V=S+24:W=S+4:FU=S+1:FL=S:AD=S+5:SR=S+6:SL=S+14:SU=S+15:POKEV,15:POKEAD,15
25 PRINT"     [158]*** SOUND EFFECTS SAMPLER[146] ***"
30 PRINT"           BY BRUCE BARTLETT[154]"
31 PRINT"A[146] ECHOING UFO TAKEOFF"
32 PRINT"B[146] PULSING UFO TAKEOFF"
33 PRINT"C[146] CRYSTAL GOBLET"
34 PRINT"D[146] ALIEN PLANET"
35 PRINT"E[146] COMPUTER COMPUTING"
36 PRINT"F[146] CHIPMUNK FIGHT"
37 PRINT"G[146] BEATING RISING BUZZER"
38 PRINT"H[146] SEASICK"
39 PRINT"I[146] RUBBER BAND"
40 PRINT"J[146] CHIME"
41 PRINT"K[146] SPINNING FALLING WHEEL"
42 PRINT"L[146] BWEE"
43 PRINT"M[146] COSMIC RAYS"
44 PRINT"N[146] PULSE SWEEP"
45 PRINT"O[146] OW"
46 PRINT"P[146] WARBLING"
47 PRINT"Q[146] DEEDLE DEEDLE"
49 PRINT"[159]     TYPE THE LETTER OF YOUR CHOICE[154]"
50 IFA>0ANDA<18THENPRINT"":FORN=1TOA+3:PRINT:NEXT:PRINT"[154]"CHR$(A+64)"[146]"
55 POKEAD,15:POKESR,0
60 GETA$:IFA$=""THEN60
70 A=ASC(A$)-64:IFA<1ORA>17THEN60
72 PRINT"":FORN=1TOA+3:PRINT:NEXT:PRINT"[158]"CHR$(A+64)"[146]"
75 IFA=16THEN1600
77 IFA=17THEN1700
80 ONAGOTO100,200,300,400,500,600,700,800,900,1000,1100,1200,1300,1400,1500
100 REM ***ECHOING UFO TAKEOFF***
110 POKESR,8
120 POKEW,21
130 POKESL,67:POKESU,12
140 FORF=0TO255:POKEFU,F:POKEFL,F:NEXT
150 POKEW,20:FORT=1TO100:NEXTT
160 GOTO50
200 REM ***PULSING UFO TAKEOFF***
210 FORF=0TO155:POKEW,17:POKEFU,F:FORT=1TO6:NEXTT
220 POKEW,129:FORT=1TO50:NEXTT
230 NEXTF
240 POKEW,128
250 GOTO50
300 REM CRYSTAL GOBLET
310 POKES+18,17:POKEW,19
320 POKESU,64
330 FORN=1TO4
340 FORF=1TO255:POKEFU,F:NEXTF
350 FORF=255TO1STEP-1:POKEFU,F:NEXTF
360 NEXTN
370 POKEW,18:GOTO50
400 REM ***ALIEN PLANET***
410 POKESL,67:POKESU,12
420 POKEW,21
430 FORN=1TO4
440 FORF=0TO255:POKEFU,F:NEXTF
450 FORF=255TO0STEP-1:POKEFU,F:NEXTF
460 NEXTN
470 POKEW,20:GOTO50
500 REM ***COMPUTER COMPUTING***
510 POKESL,240:POKESU,12
520 POKEW,19
530 FORN=1TO50:F=INT(RND(1)*255)+1:POKEFU,F
540 FORT=1TO60:NEXT
550 NEXTN
560 POKEW,18:GOTO50
600 REM ***CHIPMUNK FIGHT***
610 POKEW,21
620 FORN=1TO150:F=INT(RND(1)*255)+1
630 POKEFU,F:POKESU,F
640 FORT=1TO12:NEXTT
650 NEXTN
660 POKEW,20:GOTO50
700 REM ***BEATING RISING BUZZER***
710 POKEAD,9:POKESU,3
720 POKESR,64+12
730 POKEFU,4:POKEFL,10
740 POKEW,21
750 FORF=0TO255STEP.3:POKESL,F:NEXT
760 POKEW,20:FORT=1TO1000:NEXT:GOTO50
800 REM ***SEASICK***
810 POKEAD,63:POKEFU,4:POKEFL,10:POKESU,10
820 POKEW,21
830 FORN=1TO4
840 FORF=0TO255:POKESL,F:NEXTF
850 FORF=255TO0STEP-1:POKESL,F:NEXTF
860 NEXTN
870 POKEW,20:GOTO50
900 REM ***RUBBER BAND***
910 POKEAD,10:POKESR,64+9
920 POKEFU,67:POKEFL,12:POKESU,5
930 POKEW,19
940 FORF=0TO255STEP1.3:POKESL,F:NEXT
950 POKEW,18:FORT=1TO500:NEXT:GOTO50
1000 REM ***CHIME***
1010 POKEAD,10:POKESR,64+11
1020 POKESU,10:POKESL,10
1030 POKEFU,4:POKEW,21:FORT=1TO50:NEXT
1040 POKEW,20:FORT=1TO1800:NEXT
1050 GOTO50
1100 REM ***SPINNING FALLING WHEEL***
1110 POKEV,15+32:POKES+23,239
1120 POKEW,33
1130 FORSP=10TO255
1140 FORF=255TO0STEP-SP:POKEFU,F:POKES+22,F:NEXT
1150 NEXTSP
1160 POKEW,32:POKES+23,0:GOTO50
1200 REM ***BWEE***
1210 POKEAD,119
1220 FORN=1TO30
1230 POKEW,17
1240 FORF=INT(RND(.)*50)+50TOINT(RND(.)*150)+50STEP2:POKEFU,F:NEXT:POKEW,16
1250 NEXTN
1260 GOTO50
1300 REM ***COSMIC RAYS***
1310 POKEAD,119
1320 FORN=1TO15
1330 POKEW,33
1340 FORF=INT(RND(.)*150)+50TOINT(RND(.)*50)STEP-1
1350 POKEFU,F:NEXTF
1360 POKEW,32
1370 NEXTN
1380 GOTO50
1400 REM ***PULSE SWEEP***
1410 POKEFU,2:POKEFL,12:POKEW,65:PL=54274:PU=54275
1420 FORN=1TO3
1430 FORL=0TO255STEP2:POKEPL,L:POKEPU,0:NEXT
1440 FORL=255TO0STEP-2:POKEPL,L:POKEPU,0:NEXT
1450 NEXTN
1460 POKEW,64:GOTO50
1500 REM ***OW***
1510 POKEAD,47:POKES+23,239:POKEV,15+32
1520 FORN=1TO10
1530 POKEFU,INT(RND(.)*5)+2
1540 POKEW,33
1550 FORSW=100TO0STEP-3
1560 POKES+22,SW:NEXTSW
1570 POKEW,32:FORT=1TO100:NEXT
1580 NEXTN
1590 POKES+23,0:POKEV,15:GOTO50
1600 REM ***WARBLING***
1610 POKEW,17:FORN=1TO30
1620 FORF=50TO200STEP20:POKEFU,F:NEXTF
1630 NEXTN
1640 FORN=1TO20
1650 FORF=50TO200STEP10:POKEFU,F:NEXTF
1660 NEXTN
1670 POKEW,16:GOTO50
1700 REM ***DEEDLE DEEDLE***
1710 POKEW,33:FORD=100TO0STEP-5
1720 POKEFU,64:FORT=1TOD:NEXT
1730 POKEFU,54:FORT=1TOD:NEXT
1740 NEXTD
1750 FORD=0TO100STEP5
1760 POKEFU,64:FORT=1TOD:NEXT
1770 POKEFU,54:FORT=1TOD:NEXT
1780 NEXTD
1790 POKEW,32:GOTO50